Top 10k strings from AprSkw (1984)(Polbrit International)(pl).tzx
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
1 y do aproksymac-ji 1 x(k))^i-(x(k)<0 1 x(k))^(i+j)-(x(k)<0 1 x(k))^(i+j) 1 wny sumie kwadrat 1 tku programu mo 1 s=s-c(h,pj)*z(pj) 1 s=c(h,n1): 1 rego wyznacza-ne s 1 redniokwadratowejstaje si 1 redniokwadratowej funkcji"''" y=f(x)"''"na podstawie ci 1 redniokwadratowa)."; 1 redni aproksymacji bsa,r 1 r=r*x(i)+z(j) 1 r=c(h,pj)/s 1 p (przy n=p metodaaproksymacji 1 od-szego (tzn. wyst 1 nic r(x)=f(x)-w(x)"'"dla zadanych warto 1 nic podzielonej przezp= ";p;" wynosi:"''"bsa=";bsa: 1 lp H 1 lne warto 1 ksza od zera ": 1 ksza niz p": 1 kowita, "'"nieujemna i nie wi 1 kowita"'"i wi 1 gu p warto 1 ej po-danych r 1 dze zmiennej x)i warto 1 czynniki wielomianuw(x)." 1 czynniki w(x) od najm 1 ci"''" x(k) i y(k)=f(x(k)), (k=1(1)p)"''"wielomianem algebraicznym w(x)stopnia n 1 ci x=x(k):"'' 1 ci x(k),y(k):"'' 1 ci x(k),y(k), gdzie po-szczeg 1 ci x(k) musz 1 cego przynajmniejszej pot 1 c(k,pj)=c(k,pj)-c(k,ph)*r: 1 c(i1,n2)=r 1 c(i1,j1)=r 1 c klawisze"; 1 bsa=bsa/p: 1 bsa=bsa+r*r 1 aproksymacji)." 1 Zatrzymaj magnetofon 1 Macierz C jest osobliwa 1 Koniec oblicze 1 AprSkw % 1 ;"RUN i ENTER)" 1 ;"Program ~AprSkw~"; 1 ;"Opracowa 1 ;"Olgierd Przesmycki"; 1 ;"Liczba p musi by 1 ;"Liczba n musi by 1 ;"Czy chcesz zmieni 1 ;"Czekaj....": 1 ;"(Aproksymacja"; 1 (c(h,p(i))) 1 "|det C|=";w 1 "y(";i;")=";: 1 "x(";i;")=";: 1 "r(";x(i);")=";r 1 "a(";i1;")=";z(i) 1 "Program ten s 1 ";p;" wielomianu w(x):"''"n="; 1 "'''" (Do pocz 1 " Przez C oznacza si 1 |det C|:"'' 1 wymieniane dane:"''"Liczb 1 p par warto 1 n (t/n)?": 1 macierz uk- 1 klawisz *": 1 interpolacyjn 1 Polbrit International"; 1 O.Przesmycki, 26.9.1984 1 Czekaj na wyniki